home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / wr4____5.p2s < prev    next >
Encoding:
Text File  |  1994-05-04  |  4.9 KB  |  178 lines
  1. ##########################################################################
  2. # OBJECTIVE: LINE IN RECORD
  3. #
  4. # Description:  Open the wave player,line in and monitor on
  5. #              1)load NEW,record,seek,play.
  6. #              2)load NEW again,record,seek,play,
  7. #              3)seek to 5 second,record,seek,play,save.
  8. #               Close
  9. #
  10. #  NOTE: Ensure an audio source is connected to the line in jack
  11. #        of the audio card, otherwise it will be a blank record.
  12. #######################################################################
  13.  
  14. ############################################
  15. #
  16. #   OPEN THE DIGITAL AUDIO PLAYER
  17. #
  18. ############################################
  19.  
  20. open waveaudio00 alias wave1 notify
  21. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  22. @WAIT_NOTIFY 1 45000
  23. ###############################################
  24. #
  25. #  ENABLE TYPE LINE IN, SET MONITOR INPUT ON
  26. #
  27. ###############################################
  28.  
  29. CONNECTION wave1 QUERY TYPE WAVE STREAM ALIAS MPAmpMixer WAIT
  30. CONNECTOR WAVE1 ENABLE TYPE LINE IN NOTIFY
  31. SET MPAmpMixer MONITOR ON WAIT
  32.  
  33. ############################################
  34. #
  35. #   LOAD A NEW FILE TO BE RECORDED
  36. #
  37. ############################################
  38.  
  39. load wave1 new notify
  40. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #2
  41. @WAIT_NOTIFY 2 30000
  42.  
  43. ############################################
  44. #
  45. #   SET THE DIGITAL AUDIO PLAYER
  46. #   TIME FORMAT - MILLISECONDS
  47. #   BITS PER SAMPLE - 16 BITS
  48. #   SAMPLES PER SEC - 11 KHz
  49. #   CHANNELS - MONO
  50. #   FORMAT TAG - PCM
  51. #
  52. ############################################
  53.  
  54. set wave1 time format milliseconds wait
  55. status wave1 time format wait
  56. =milliseconds
  57. set wave1 bitspersample 16 wait
  58. status wave1 bitspersample wait
  59. =16
  60. set wave1 samplespersec 11025 wait
  61. status wave1 samplespersec wait
  62. =11025
  63. set wave1 channels 1 wait
  64. status wave1 channels wait
  65. =1
  66. set wave1 format tag PCM wait
  67. status wave1 format tag wait
  68. =PCM
  69.  
  70. ############################################
  71. #
  72. #   RECORD THE NEW WAVE FILE
  73. #
  74. ############################################
  75. @REM ***************************************************************
  76. @REM Ensure an audio source is connected to the line in jack of the
  77. @REM audio card, otherwise it will be a blank record.
  78. @REM ***************************************************************
  79.  
  80. record wave1 from 0 to 10000 notify
  81. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #3
  82. @WAIT_NOTIFY 3 20000
  83.  
  84. ##############################################
  85. #
  86. #   SEEK TO START, PLAY THE NEW RECORDED FILE
  87. #
  88. ##############################################
  89.  
  90. seek wave1 to 0 wait
  91. status wave1 position wait
  92. =0
  93. play wave1 notify
  94. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #4
  95. @WAIT_NOTIFY 4 45000
  96.  
  97. #############################################################
  98. #
  99. # LOAD NEW FILE AGAIN
  100. # RECORD THE NEW WAVE FILE FOR THE second TIME
  101. #
  102. #############################################################
  103.  
  104. @REM ***************************************************************
  105. @REM Ensure an audio source is connected to the line in jack of the
  106. @REM audio card, otherwise it will be a blank record.
  107. @REM ***************************************************************
  108.  
  109. load wave1 new notify
  110. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #12
  111. @WAIT_NOTIFY 12 30000
  112.  
  113. record wave1 from 0 to 10000 notify
  114. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #6
  115. @WAIT_NOTIFY 6 20000
  116.  
  117. #############################################
  118. #
  119. #   SEEK TO START,PLAY THE NEW RECORDED FILE
  120. #
  121. #############################################
  122.  
  123. seek wave1 to 0 wait
  124. status wave1 position wait
  125. =0
  126. play wave1 notify
  127. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #7
  128. @WAIT_NOTIFY 7 45000
  129.  
  130. ##############################################
  131. #
  132. #   SEEK TO 5 SECOND
  133. #   RECORD THE NEW WAVE FILE FOR THE third TIME
  134. #
  135. ##############################################
  136. @REM ***************************************************************
  137. @REM Ensure an audio source is connected to the line in jack of the
  138. @REM audio card, otherwise it will be a blank record.
  139. @REM ***************************************************************
  140.  
  141. seek wave1 to 5 wait
  142. status wave1 position wait
  143. =5
  144.  
  145. record wave1 from 0 to 10000 notify
  146. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #8
  147. @WAIT_NOTIFY 8 20000
  148.  
  149. ############################################
  150. #
  151. #   SEEK TO 10 second
  152. #   PLAY THE NEW RECORDED FILE
  153. #   SAVE THE NEW RECORDED FILE
  154. #
  155. ############################################
  156.  
  157. seek wave1 to 10 wait
  158. status wave1 position wait
  159. =10
  160. play wave1 notify
  161. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #9
  162. @WAIT_NOTIFY 9 45000
  163. save wave1 delete.wav notify
  164. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #10
  165. @WAIT_NOTIFY 10 45000
  166.  
  167.  
  168. ####################################
  169. #
  170. #   CLOSE THE DIGITAL AUDIO PLAYER 
  171. #
  172. ####################################
  173.  
  174. close wave1 notify
  175. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #11
  176. @WAIT_NOTIFY 11 40000
  177.  
  178.